home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / x68000.arc / SOURCE.ARC / ERRORX68.DEF < prev    next >
Encoding:
Modula Definition  |  1986-01-23  |  662 b   |  25 lines
  1. DEFINITION MODULE ErrorX68;
  2. (* Displays error messages for X68000 cross assembler *)
  3.  
  4.    FROM FileSystem IMPORT
  5.       File;
  6.  
  7.    EXPORT QUALIFIED
  8.       ErrorType, ErrorCount, Error, WriteErrorCount;
  9.  
  10.    TYPE
  11.       ErrorType = (Dummy, TooLong, NoCode, SymDup, Undef, SymFull, Phase,
  12.                    ModeErr, OperErr, BraErr, AddrErr, SizeErr, EndErr);
  13.  
  14.    VAR
  15.       ErrorCount : CARDINAL;
  16.  
  17.    PROCEDURE Error (Pos : CARDINAL; ErrorNbr : ErrorType);
  18.    (*  Displays Error #ErrorNbr, then waits for any key to continue *)
  19.  
  20.    PROCEDURE WriteErrorCount (VAR f : File);
  21.    (* Error count output to Console & Listing file *)
  22.  
  23. END ErrorX68.
  24.  
  25.